10 GOSUB6280
20 POKE743,169:POKE29,0
30 POKE720,8:POKE739,52:POKE744,50:POKE749,56:POKE754,48:POKE758,169
40 UN=(PEEK(0)=76):SC=53281+16402*UN:POKESC,0-26*V:IFUN=0THENPOKE53280,0
50 DIMI$(16),I(16),V$(17):PRINTCHR$(142)
60 PRINT"[147][155]";" DO YOU WANT INSTRUCTIONS? (Y/N)":SAY"DO YOU WANT INSTRUCTIONS"
70 GETA$:IFA$<>""THEN70
80 GETA$:IFA$=""THEN80
90 IFA$="Y"THENGOSUB4820
100 PRINTCHR$(142)
110 GOTO4420
120 GOSUB160:GOTO3830
130 REM
140 REM DECODE AND PRINT OUTPUT
150 REM
160 POKE29,0:SS$="":IFP$=""THENRETURN
170 FORP=1TOLEN(P$):J=ASC(MID$(P$,P,1))
180 S1$=CHR$(ABS(J+155*(J>64ANDJ<91)+187*(J>96ANDJ<123)))
190 SS$=SS$+S1$:PRINTS1$;:NEXT
200 SAYSS$:POKE29,0:PRINT:RETURN
210 REM ENCODE INPUT
220 V$="":IFV0$=""THENRETURN
230 FORP=1TOLEN(V0$):J=ASC(MID$(V0$,P,1))
240 V$=V$+CHR$(ABS(J+155*(J>64ANDJ<91)+187*(J>96ANDJ<123))):NEXT
250 RETURN
260 GOSUB160:GOTO3830
270 REM
280 REM DESCRIPTIONS OF INDIVIDUAL ROOMS
290 REM
300 A$="ZM ZRIOLXP. GSVIV RH Z YOFV YFGGLM SVIV":S=2:RETURN
310 A$="Z MZIILD XLIIRWLI":N=1:S=3:RETURN
320 A$="Z MZIILD XLIIRWLI":N=2:S=4:RETURN
330 A$="Z MZIILD XLIIRWLI":N=3:S=5:RETURN
340 A$="Z HNZOO ILLN":N=4:S=6:RETURN
350 A$="Z WVXLMGZNRMZGRLM XSZNYVI":B$="GSVIV RH Z YOFV YFGGLM SVIV":N=5
360 S=7:RETURN
370 A$="Z HNZOO HGLIZTV XSZNYVI":N=6:S=8:W=12:RETURN
380 STOP
390 A$="Z HNZOO XSZNYVI":N=7:S=9:W=13:RETURN
400 A$="Z HNZOO VOVXGILMRX OZYLIZGLIB":N=7:S=10:W=14:RETURN
410 A$="Z YRLOLTRXZO OZYLIZGLIB.  GSVIV RH Z IVW YFGGLM LM GSV DZOO":N=9:
420 W=15:RETURN
430 A$="Z HGLIZTV XSZNYVI":W=16:RETURN
440 A$="Z OZITV XSZNYVI":B$="GSVIV RH Z XZYRMVG SVIV":S=13:W=17:E=7:RETURN
450 A$="Z HGIZMTV KFIKOV ILLN.  GSVIV RH Z YOFV YFGGLM SVIV":N=12:S=14:W=18
460 E=8:RETURN
470 A$="Z HNZOO LUURXV":N=13:S=15:E=9:RETURN
480 A$="Z HNZOO ILLN DRGS Z XZIW GZYOV RM GSV   XVMGVI":N=14:S=16:W=20
490 E=10:RETURN
500 A$="Z OZITV LUURXV.  GSVIV RH Z WVHP SVIV":N=15:W=21:E=11:RETURN
510 A$="Z LUURXV DRGS Z OZITV WVHP":S=18:E=12:RETURN
520 A$="Z HGLIZTV ILLN":N=17:S=19:E=13:RETURN
530 A$="Z OZITV SZOO":N=18:S=20:RETURN
540 A$="ZM VMGVIGZRMNVMG ILLN. Z HXIVVM IVHGH LMGSV DZOO"
550 B$="GSVIV RH Z YOFV ZMW Z IVW YFGGLM FMWVI  GSV HXIVVM":N=19:S=21
560 E=15:RETURN
570 A$="Z WZGZ IVXLIW HGLIZTV ILLN":N=20:E=16:RETURN
580 A$="IZWZI XLMGILO.  GSVIV RH Z HNZOO HXIVVM SVIV":S=23:W=27:RETURN
590 A$="Z NVWRXZO HGZGRLM.  GSVIV RH Z OZITV    GZYOV SVIV":N=22:S=24
600 W=28:RETURN
610 A$="Z HVXFIRGB HGZGRLM":N=23:RETURN
620 PRINT"[147]":IFA=46THEN630
630 A$="Z IZWRL ILLN":S=26:W=30:RETURN
640 A$="Z HNZOO ILLN.  GSVIV RH Z HZUV RM GSV   HLFGS DZOO":N=25:W=31:RETURN
650 A$="GSV ILYLG XLMGILO XVMGVI.  GSVIV RH Z   HNZOO XLMGILO XLNKFGVI NLFMGVW"
660 A$=A$+" RM GSV   DZOO":B$="":W=32:E=22:RETURN
670 A$="GSV DVZKLMH HGLIZTV ILLN":S=29:W=33:E=23:RETURN
680 A$="Z ORYIZIB":N=28:S=30:W=34:RETURN
690 A$="Z HVXFIRGB XSVXP ZIVZ":N=29:W=36:E=25:RETURN
700 A$="Z HNZOO ILLN DRGS Z WVHP.  Z HRTM IVZWH":B$="'KIVHHFIV GL IVZXGLI.'  Z"
710 B$=B$+" YOFV YFGGLM RH OLXZGVW FMWVI GSV HRTM":E=26:RETURN
720 A$="OZFMXS XLMGILO.  GSVIV RH Z WVHP SVIV":S=33:W=37:E=27:RETURN
730 A$="Z HNZOO XLIIRWLI":N=32:S=34:E=28:RETURN
740 A$="Z HGIZMTV YOFV ILLN.  GSVIV RH Z IVW    YFGGLM SVIV":N=33:S=35:E=29
750 RETURN
760 A$="Z GRMB HGLIZTV ILLN":N=34:W=40:RETURN
770 A$="Z HNZOO XSZNYVI.  Z WLLI DVHG OVZWH GL   GSV MFXOVZI IVZXGLI":E=30
780 RETURN
790 A$="Z HNZOO,MZIILD XLIIRWLI":N=42:E=32:RETURN
800 A$="GSV XLNKFGVI XVMGVI.  GSVIV RH Z HNZOO   HOLG RM GSV XLNKFGVI":S=39
810 RETURN
820 A$="GSV XSVNRXZO OZY":N=38:S=40:RETURN
830 A$="GSV IV ZXGLI XLMGILO XVMGVI. GSVIV RH Z YOFV YFGGLM ZMW Z IVW LMV.  Z"
840 A$=A$+" HRTM HZBH XLMGILO - IVW=FK, YOFV=WLDM":N=39:E=35:RETURN
850 A$="GSV MFXOVZI IVZXGLI. Z XLNKFGVI IVHGH LMGSV DZOO":E=36:RETURN
860 A$="GSV DVHG VMW LU Z OLMT XLIIRWLI":S=37:E=43:RETURN
870 A$="GSV VZHG VMW LU Z OLMT XLIIRWLI":W=42:E=44:RETURN
880 A$="Z HVXFIRGB XVMGVI":W=43:E=45:RETURN
890 A$="Z HNZOO OZFMXS ZIVZ":B$="GSVIV RH Z HNZOO HOLG MVCG GL GSV OZFMXSTZGV"
900 W=44:RETURN
910 REM
920 REM EXTENDED ROOM DESCRIPTIONS
930 REM
940 IFA=10AND(D3=1ORD3=2)THENC$="GSV NLMHGVI XZTV RH LKVM"
950 IFA=12ANDD5=0THENC$="GSV XZYRMVG RH OLXPVW"
960 IFA=12ANDD5=1THENC$="GSV XZYRMVG RH LKVM"
970 IFA=20ANDD6=0THENC$="GSV HXIVVM RH YOZMP"
980 IFA=20ANDD6=1THENC$="Z NLERV RH YVRMT KOZBVW LM GSV HXIVVM"
990 IFA=26ANDD9=0THENC$="GSV HZUV RH OLXPVW"
1000 IFA=26ANDD9=1THENC$="GSV HZUV RH LKVM"
1010 IFA=26ANDE2=0THENC$="GSV XLNKFG VI RH ZXGREV"
1020 IFA=27ANDE2=1THENC$="GSV XLNKFGVI RH WVHGILBVW"
1030 IFA=36ANDE6=0THENC$="GSV IVZXGLI WLLI RH URINOB OLXPVW"
1040 IFA=36ANDE6=1THENC$="GSV IVZXGLI WLLI RH LKVM":W=41
1050 IFA=45ANDE9=0THENC$="GSV OZFMXS TZGV RH XOLHVW"
1060 IFA=45ANDE9=1THENC$="GSV OZFMXS TZGV RH LKVM":E=46
1070 REM
1080 REM GENERATE THE LIST OF VISIBLE            ITEMS AMD AVAILABLE EXITS.
1090 REM
1100 A$=A$+".":IFLEN(B$)>3THENB$=B$+"."
1110 IFLEN(C$)>3THENC$=C$+"."
1120 IFN<>0THENE$="MLIGS "
1130 IFS<>0THENE$=E$+"HLFGS "
1140 IFW>0THENE$=E$+"DVHG "
1150 IFE>0THENE$=E$+"VZHG "
1160 POKE29,0:IFE$<>""THENE$=LEFT$(E$,LEN(E$)-1)
1170 POKE29,0
1180 REM DESCRIBE CURRENT LOCATION, VISI         BLE ITEMS, AND AVAILABLE EXITS.
1190 REM
1200 PRINT"[147]YOU ARE IN:":SAY"YOU ARE IN":P$=A$:GOSUB160:PRINT
1210 IFB$<>""THENP$=B$:GOSUB160
1220 IFC$<>""THENP$=C$:GOSUB160
1230 PRINT"OBJECTS YOU CAN SEE:":SAY"OBJECTS YOU CAN SEE":P$=" ":FORT=1TO16
1240 IFA=I(T)THENP$=I$(T):GOSUB160
1250 NEXT:IFP$=" "THENP$="-MLGSRMT-":GOSUB160
1260 PRINT"EXITS: ":SAY"EXITS":P$=E$:GOSUB160
1270 REM
1280 REM PRINT OUT ADDITIONAL WARNINGS,          MESSAGES, ETC.
1290 REM
1300 IF(A=40ORA=35ORA=30ORA=31)ANDI(4)=0ANDF3=0THEN1320
1310 GOTO1330
1320 P$="GSV HNZOO YOZXP WVERXV RH YORMPRMT":GOSUB160
1330 IFA=36ANDI(4)-0ANDF3=0THENP$="GSV HNZOO YOZXP WVERXV RH UOZHSRMT":GOTO1350
1340 GOTO1360
1350 P$=P$+"      YIRTSGOB":GOSUB160
1360 POKE29,0:IFF4<>0THENF4$=RIGHT$(STR$(F4),2):POKE29,0:GOTO1380
1370 POKE29,0:GOTO1390
1380 P$="GSV XLNKFGVI HZBH: '"+F4$+" NRMFGVH FMGRO WV-HGIFXGRLM'":GOSUB160
1390 IFD3=1THENP$="- - - ZORVM NLMHGVI ZGGZXPRMT - - -":GOSUB160
1400 IFD7=1ORE0=1ORE3=1ORE7=1THENP$="- - - HVXFIRGB KZGILO ZGGZXPRMT":GOTO1420
1410 GOTO1430
1420 P$=P$+" - - -":GOSUB160
1430 REM
1440 REM GET AND INTERPRET COMMAND.
1450 REM
1460 PRINT"COMMAND";:SAY"COMMAND.":INPUTV0$:GOSUB220
1470 FORT=1TO4:POKE29,0:IFV$=LEFT$(V$(T),1)THENV$=V$(T)
1480 POKE29,0:NEXT T:POKE29,0
1490 IFLEN(V$)<3THEN1200
1500 POKE29,0:V1$=LEFT$(V$,3):V2$=RIGHT$(V$,3):POKE29,0
1510 FORT=1TO17:POKE29,0:IFV1$=LEFT$(V$(T),3)THENV1=T:POKE29,0
1520 NEXTT:IFV1=0THENP$="R WLM'G FMWVIHGZMW DSZG BLF DZMG.":GOSUB160:GOTO1540
1530 GOTO1550
1540 FORII=1TO1000:NEXT:GOTO3830
1550 FORT=1TO16:POKE29,0:IFV2$=RIGHT$(I$(T),3)THENV2=T:POKE29,0
1560 NEXTT:POKE29,0:GOTO1600
1570 PRINT"HIT G TO CONTINUE":SAY"HIT G.TO CONTINU."
1580 GETZZ$:IFZZ$<>""THEN1580
1590 GETZZ$:IFZZ$<>"G"THEN1590
1600 IFV1=0THEN1640
1610 IFV1<12THEN1630
1620 IFV1>11THENZZ=V1-11:GOTO1640
1630 ONV1GOTO1690,1730,1770,1840,1930,2250,2310,2330,2700,2790,2830
1640 ONZZGOTO3080,3170,3220,3470,3730,3790
1650 GOTO3830
1660 REM
1670 REM HANDLE COMMANDS
1680 REM
1690 IFN=0THEN1900
1700 IFD3=1THENP$="GSV NLMHGVI YOLXPH GSV VCRG":GOTO120
1710 IFD7=1ORE3=1THEN1890
1720 A=N:GOTO3830
1730 IFS=0THEN1900
1740 IFS=24ANDD8<>0ANDE2<>1THEND7=1:GOSUB1920
1750 IFS=30ANDE4<>0ANDE2<>1THENE3=1:GOSUB1920
1760 A=S:GOTO3830
1770 IFW=0THEN1900
1780 IFD3=1THENP$="GSV NLMHGVI YOLXPH GSV VCRG":GOTO120
1790 IFE0=1ORE3=1ORE7=1THEN1890
1800 IFW=41ANDF3=0THENP$="IZWRZGRLM UILN GSV IVZXGLI SRGH BLF":GOSUB160:GOTO4250
1810 IFW=30ANDE4<>0ANDE2<>1THENE3=1:GOSUB1920
1820 IFW=27ANDE1<>0ANDE2<>1THENE0=1:GOSUB1920
1830 A=W:GOTO3830
1840 IFE=0THEN1900
1850 IFE0=1ORE3=1ORE7=1THEN1890
1860 IFE=27ANDE1<>0ANDE2<>1THENE0=1:GOSUB1920
1870 IFE=44ANDE8<>0ANDE2<>1THENE7=1:GOSUB1920
1880 A=E:GOTO3830
1890 P$="GSV HVXFIRGB ZMWILRW YOLXPH GSV VCRG":GOTO120
1900 P$="GSVIV RH ML DZB GL TL GSZG WRIVXGRLM":GOSUB160:FORJ=1TO1500:NEXT
1910 GOTO3830
1920 P$="Z HVXFIRGB ZMWILRW ZDZRGH BLF":GOSUB160:RETURN
1930 IFA=1ANDV2$="LXP"THENP$="GSV ZRIOLXP LKVMH ZMW BLF ZIV YOLDM":GOTO1950
1940 GOTO1960
1950 P$=P$+" LFG RMGL GSV EZXFFN LU HKZXV":GOSUB160:GOTO4250
1960 IFA=12ANDV2$="MVG"ANDD5=0ANDI(2)<>0THENP$="BLF QFHG ZIVM'G":GOTO1980
1970 GOTO1990
1980 P$=P$+" HGILMT VMLFTS GL ULIXV  RG LKVM":GOTO120
1990 IFA=12ANDV2$="MVG"ANDD5=0ANDI(2)=0THENP$="GSV XILDYZI SVOKVW.":GOTO2010
2000 GOTO2020
2010 P$=P$+"  GSV XZYRMVG RH MLD LKVM":GOSUB160:D5=1:I(5)=ABS(I(5)):GOTO3830
2020 IFA=12ANDV2$="MVG"ANDD5=1THENP$="GSV XZYRMVG RH ZOIVZWB LKVM":GOTO120
2030 IFA=16ANDV2$="VHP"THENPRINT"OK":SAY"O K.":I(6)=ABS(I(6)):GOTO3830
2040 IFA=17ANDV2$="VHP"THENPRINT"OK":SAY"O K.":I(7)=ABS(I(7)):GOTO3830
2050 IFA=26ANDV2$="ZUV"ANDD9=1THENP$="GSV HZUV RH ZOIVZWB LKVM":GOTO120
2060 IFA=26ANDV2$="ZUV"ANDD9=0THENP$="R WLM'G SZEV GSV PVB ":GOTO2080
2070 GOTO2090
2080 P$=P$+"GL LKVM GSV HZUV":GOTO120
2090 IFA=31ANDV2$="VHP"THENP$="LP. BLF URMW MLGSRMT RMHRWV":GOTO120
2100 IFA=32ANDV2$="VHP"THENPRINT"OK":SAY"O K.":I(14)=ABS(I(14)):GOTO3830
2110 IFA=36ANDV2$="LLI"ANDE6=1THENP$="GSV WLLI RH ZOIVZWB LKVM":GOTO120
2120 IFA=36ANDV2$="LLI"ANDE6=0ANDI(6)<>0THENP$="BLF WLM'G SZEV GSV":GOTO2140
2130 GOTO2150
2140 P$=P$+" PVB GL GSV WLLI":GOTO120
2150 IFA=36ANDV2$="LLI"ANDE6=0ANDI(6)=0ANDE5=0THENP$="BLF ZIV ":GOTO2170
2160 GOTO2180
2170 P$=P$+"HFXPVW RMGL GSV FMKIVHHFIRAVW   IVZXGLI YFROWRMT":GOSUB160:GOTO4250
2180 IFA=36ANDV2$="LLI"ANDI(6)=0THENP$="GSV WLLI RH MLD LKVM":GOTO2200
2190 GOTO2210
2200 GOSUB160:E6=1:GOTO3830
2210 IFA=41ANDV2$="MVO"THENP$="GSV KZMVO RH URINOB OLXPVW":GOTO120
2220 IFA=45ANDV2$="LXP"ANDE9=1THENP$="GSV ZRIOLXP RH ZOIVZWB LKVM":GOTO120
2230 IFA=45ANDV2$="LXP"ANDE9=0THENP$="GSVIV ZIVM'G ZMB ERHRYOV XLMGILOH":GOTO120
2240 P$="R XZM'G WL GSZG":GOTO120
2250 IFV2$="GVI"ORV2$="LRW"THENP$="WLM'G YV IR WRXFOLFH":GOTO120
2260 IFV2=0THENP$="R XZM'G WL GSZG":GOTO120
2270 IFI(V2)=0THENP$="BLF ZOIVZWB SZEV GSZG":GOTO120
2280 IFA<>I(V2)THENP$="R WLM'G HVV RG SVIV":GOTO120
2290 IFP4>8THENP$="HLIIB, BLF XZM'G XZIIB ZMBGSRMT NLIV":GOTO120
2300 P4=P4+1:I(V2)=0:PRINT"OK":SAY"O K.":GOTO3830
2310 IFV2=0THENP$="BLF WLM'G SZEV GSZG":GOTO120
2320 P4=P4-1:I(V2)=A:PRINT"OK":SAY"O K.":GOTO3830
2330 IFI(5)<>0THENP$="BLF WLM'G SZEV Z DVZKLM":GOTO120
2340 IFA=1ANDV2$="LXP"THENP$="BLF ZIV YOLDM LFG LU GSV ZRIOLXP":GOTO2360
2350 GOTO2370
2360 P$=P$+" RMGL   GSV EZXFFN LU HKZXV":GOSUB160:GOTO4250
2370 IFA=27ANDV2$="GVI"THENP$="GSV XLNKFGVI RH WVHGILBVW":GOSUB160:GOTO2390
2380 GOTO2400
2390 E2=1:E0=0:GOTO3830
2400 IFA=38ANDV2$="GVI"THENP$="GSV HSLG IVUOVXGH LUU LU GSV XLNKFGVI":GOTO2420
2410 GOTO2430
2420 GOSUB160:GOTO4250
2430 IFA=41ANDV2$="GVI"XP$="GSV DSLOV MFXOVZI IVZXGLI RH VCKOLWRM":GOTO2450
2440 GOTO2460
2450 P$=P$+"T":GOSUB160:GOTO4250
2460 IFV2$="RWH"ORV2$="YLG"ORV2$="ILO"ORV2$="IWH"ORV2$="ZIW"THENV2$="LRW"
2470 IFV2$<>"GVI"ANDV2$<>"LRW"THENP$="GSV OZHVI HSLG SZH ML VUUVXG":GOTO120
2480 IFV2$="GVI"ANDD3=0THENP$="R WLM'G HVV ZMB NLMHGVI SVIV":GOTO120
2490 IFFV2$="LRW"ANDD7=0ANDE0=0ANDE3=0ANDE7=0THENP$="R WLM'G HVV ZMB":GOTO2510
2500 GOTO2520
2510 P$=P$+" Z MWILRWH SVIV":GOTO120
2520 T=INT(100*RND(1))+1:IFT>P2+P3+50THENP$="BLF URIV ZMW NRHH":GOTO120
2530 IFD3=1THENP$="BLF SRG GSV NLMHGVI":GOSUB160:D4=D4-((10+P2+P3)/2):GOTO2550
2540 GOTO2560
2550 IFD4<=0THEND3=0:D4=0:P$="BLF SZEV PROOVW RG":GOTO120
2560 IFD7=1THENP$="BLF SRG GSV ZMWILRW":GOSUB160:D8=D8-((5+P2+P3)/2):GOTO2580
2570 GOTO2590
2580 IFD8<=0THEND7=0:D8=0:P$="RG RH WVHGILBVW":GOTO120
2590 IFE0=1THENP$="BLF SRG GSV ZMWILRW":GOSUB160:E1=E1-((5+P2+P3)/2):GOTO2610
2600 GOTO2620
2610 IFE1<=0THENE0=0:E1=0:P$="RG RH WVHGILBVW":GOTO120
2620 IFE3=1THENP$="BLF SRG GSV ZMWILRW":GOSUB160:E4=E4-((5+P2+P3)/2):GOTO2640
2630 GOTO2650
2640 IFE4<=0THENE3=0:E4=0:P$="RG RH WVHGILBVW":GOTO120
2650 IFE7=1THENP$="BLF SRG GSV ZMWILRW":GOSUB160:E8=E8-((5+P2+P3)/2):GOTO2670
2660 GOTO2680
2670 IFE8<=0THENE7=0:E8=0:P$="RG RH WVHGILBVW":GOTO120
2680 IFD3=1THENP$="RG RH HGROO ZOREV":GOTO120
2690 P$="GSV ZMWILRW RH HGROO UFMXGRLMRMT":GOTO120
2700 IFV2=0THENP$="R XZM'G WL GSZG":GOTO120
2710 IFI(V2)<>0THENP$="R WLM'G SZEV GSZG":GOTO120
2720 IFV2<>9ANDV2<>14THENP$="R XZM'G WL GSZG":GOTO120
2730 IF(V2=9ANDA=44)OR(V2=14ANDA=38)THENP$="MLGSRMT SZKKVMH":GOSUB160
2740 IFV2=9ANDA=38THENF4=35:P$="GSV XLNKFGVI IVKORVH: 'YZHV WVHGIFXG":GOTO2760
2750 GOTO2780
2760 P$=P$+"    HVJFVMXV HGZIGVW' WVHGIFXGRLM RM 34     NRMFGVH.":GOSUB160
2770 P4=P4-1:I(9)=100:GOTO3830
2780 IFV2=14ANDA=45THENP$="GSV TZGV LKVMH":GOSUB160:E9=1:GOTO3830
2790 IFV2<>10THENP$="WLM'G YV IRWRXFOLFH":GOTO120
2800 IFI(10)<>0THENP$="BLF WLM'G SZEV GSZG":GOTO120
2810 PRINT"OK":SAY"O K.":I(10)=50:P4=P4-1:P1=P1+5+P3:IFP0<P1THENP0=P1
2820 GOTO3830
2830 IFA=1ANDV2$="OFV"THENP$="GSV ZRIOLXP LKVMH...  BLF ZIV YOLDM":GOTO2850
2840 GOTO2860
2850 P$=P$+" LFG RMGL GSV EZXFFN LU HKZXV":GOSUB160:GOTO4250
2860 IFA=6ANDV2$="OFV"THENP$="[129]Z HGIZMTV, LIZMTV TOLD XLEVIH BLF ZMW":GOTO2880
2870 GOTO2890
2880 P$=P$+"   GSVM UZWVH ZDZB[155]":GOTO120
2890 IFA=10ANDV2$="IVW"ANDD3=1THENP$="MLGSRMT SZKKVMH":GOTO120
2900 IFA=10ANDV2$="IVW"THEND3=1:P$="ZM ZORVM NLMHGVI RH IVOVZHVW.  ":GOTO2920
2910 GOTO2930
2920 P$=P$+"RG RH    ZGGZXPRMT BLF!":GOTO120
2930 IFA=13ANDV2$="OFV"THENA=34:POKESC,1:FORBB=1TO200:NEXT:POKESC,0:GOTO2950
2940 GOTO2970
2950 P$="Z UOZHS LU ORTSG GVNKLIZIROB"
2960 P$=P$+" YORMWH BLF":GOTO120
2970 IFA=20ANDV2$="IVW"ANDD6=0THENP$="MLGSRMT SZKKVMH":GOTO120
2980 IFA=20ANDV2$="IVW"THEND6=0:P$="GSV HXIVVM TLVH YOZMP":GOTO120
2990 IFA=20ANDV2$="OFV"THEND6=1:P$="GSV HXIVVM ORTSGH FK":GOTO120
3000 IFA=31ANDV2$="OFV"THENE5=1:PRINT"OK":SAY"O K.":GOTO3830
3010 IFA=34ANDV2$="IVW"THENA=13:POKESC,1:FORBB=1TO200:NEXT:POKESC,0:GOTO3030
3020 GOTO3050
3030 P$="Z UOZHS LU ORTSG GVNKLIZIROB "
3040 P$=P$+"YORMWH BLF":GOTO120
3050 IFA=40ANDV2$="IVW"THENF3=0:PRINT"OK":SAY"O K.":GOTO3830
3060 IFA=40ANDV2$="OFV"THENF3=1:PRINT"OK":SAY"O K.":GOTO3830
3070 P$="MLGSRMT SZKKVMH":GOTO120
3080 IFA=22ANDV2$="VVM"THENP$="BLF XZM HVV MLGSRMT LU RMGVIVHG":GOTO3100
3090 GOTO3110
3100 P$=P$+" LM GSV  IZWZI":GOTO120
3110 IFV2=0THENP$="R WLM'G SZEV GSZG":GOTO120
3120 IFI(V2)<>0ANDA<>I(V2)THENP$="R WLM'G SZEV GSZG":GOTO120
3130 IFV2=3ORV2=13THENP$="R HVV MLG SRMT HKVXRZO":GOTO120
3140 IFV2=9THENP$="HLIIB, LMOB Z XLNKFGVI XZM IVZW Z       KILTIZN":GOTO120
3150 IFV2=16THENP$="GSV KOZMH ZIV HVZOVW...LMOB XLNNZMW XZM LKVM GSVN":GOTO120
3160 P$="R XZM'G IVZW GSZG":GOTO120
3170 P$="[147]- - - KOZBVI'H RMEVMGLIB - - -":GOSUB160
3180 PRINT:FORT=1TO16:IFI(T)=0THENP$="- "+I$(T):GOSUB160
3190 NEXTT
3200 PRINT:S1$="HIT RETURN[146] TO CONTINUE":PRINTS1$;:SAYS1$:INPUTT$:PRINT
3210 GOTO4000
3220 IFV2=0THENP$="R XZM'G WL GSZG":GOTO120
3230 IFI(V2)<>0THENP$="R XZM'G WL SZEV":GOTO120
3240 IFV2=1ANDA=12ANDD5=0THENP$="GSV XZYRMVG OLXP RH WVHGILBVW":GOTO3260
3250 GOTO3270
3260 GOSUB160:D5=1:I(1)=100:I(5)=ABS(I(5)):P4=P4-1:GOTO3830
3270 IF(V2=1ORV2=15)AND(D3=1ORD7=1ORE0=1ORE3=1ORE7=1)THENI(V2)=100:GOTO3290
3280 GOTO3300
3290 P4=P4-1:GOTO3830
3300 IF(V2=1ORV2=15)ANDA=1THENP$="GSV ZRIOLXP RH WVHGILBVW...BLF ":GOTO3320
3310 GOTO3330
3320 P$=P$+"ZIV YOLDMLFG RMGL GSV EZXFFN LU HKZXV!":GOSUB160:GOTO4250
3330 IF(V2=1ORV2=15)ANDA=35ANDE6=0ANDE5=0THENP$="GSV WLLI RH WVHGILB":GOTO3350
3340 GOTO3370
3350 P$=P$+"VW... BLF ZIV HFXPVW RMGL GSV FMKIVHHFIRAVW IVZXGLI YFROWRMT"
3360 GOSUB160:GOTO4250
3370 IF(V2=1ORV2=15)ANDA=36ANDE6=0ANDF3=0THENP$="GSV WLLI RH WVHGILB":GOTO3390
3380 GOTO3400
3390 P$=P$+"VW. BLF ZIV YLNYZIWVWDRGS IZWRZGRLM":GOSUB160:GOTO4250
3400 IF(V2=1ORV2=15)ANDA=36ANDE6=0THENP$="GSV WLLI RH WVHGILBVW":GOTO3420
3410 GOTO3430
3420 GOSUB160:E6=1:I(V2)=100:P4=P4-1:GOTO3830
3430 IFV2=1ORV2=15THENP$="GSV "+I$(V2)+" SZH ML VUUVXG:GOSUB40:GOTO19650
3440 [137]3460
3450 I(V2)[178]100:P4[178]P4[171]1:[137]3830
3460 [137]2310
3470 [139]V2[178]0[167]P$[178]"R XZM'G WL GSZG":[137]120
3480 [139]I(V2)[179][177]0[167]P$[178]"R WLM'G SZEV GSZG":[137]120
3490 [139]V2[178]5[175]D3[178]1[167]V2$[178]"GVI"
3500 [139]V2[178]5[175](D7[178]1[176]E0[178]1[176]E3[178]1[176]E7[178]1)[167]V2$[178]"LRW"
3510 [139]V2[178]5[167]2330
3520 [139]V2[178]4[175]F3[178]0[175](A[178]40[176]A[178]35[176]A[178]30[176]A[178]31)[167]P$[178]"GSV YOZXP WVERX":[137]3540
3530 [137]3550
3540 P$[178]P$[170]"V RH YORMPRMT":[137]120
3550 [139]V2[178]4[175]F3[178]0[175]A[178]36[167]P$[178]"GSV YOZXP WVERXV RH UOZHSRMT YIRTSGOB":[137]120
3560 [139]V2[178]4[167]P$[178]"GSVIV ZIVM'G ZMB ERHRYOV XLMGILOH LM GRSH WVERXV":[137]120
3570 [139]V2[178]12[167]I(12)[178]A:P4[178]P4[171]1:I$(12)[178]"ZINVW KSLGLM YLNY":[137]3590
3580 [137]3600
3590 F2[178]35:P$[178]"GSV YLNY DROD VCKOLWV RM 35 NRMFGVH":[137]120
3600 [139]V2[178]2[175]A[178]12[175]D5[178]0[167]D5[178]1:P$[178]"GSV XZYRMVG RH MLD LKVM":[137]3620
3610 [137]3630
3620 [141]160:I(5)[178][182](I(5)):[137]3830
3630 [139]V2[178]2[175]A[178]12[175]D5[178]1[167]P$[178]"GSV XZYRMVG RH ZOIVZWB LKVM":[137]120
3640 [139]V2[178]7[175]A[178]26[175]D9[178]0[167]D9[178]1:I(16)[178][182](I(16)):P$[178]"GSV HZUV LKVMH":[137]120
3650 [139]V2[179][177]11[167]P$[178]"DSZG WL BLF DZMG NV GL WL DRGS GSV      ":[137]3670
3660 [137]3680
3670 P$[178]P$[170]I$(V2)[170]"?":[137]120
3680 [139]I(8)[179][177]0[167]P$[178]"GSVIV ZIVM'G ZMB YZGGVIRVH ULI GSV IZWRL":[137]120
3690 [139]F2[179][177]0[167]F2$[178][196](F2):[153]:P$[178]"Z ELRXV HZVH 'YLNY HGZGFH":[137]3710
3700 [137]3720
3710 [141]160:P$[178]F2$[170]" NRMFGVH FMGRO WVGLMZGRLM'":[137]120
3720 P$[178]"GSV IZWRL RH HROVMG":[137]120
3730 P$[178]"LOAD- - - KOZBVI'H HGZGFH - - -":[141]160:[153]
18844 P1$[178][196](P1):P$[178]"XFIIVMG SRG KLRMGH  = "[170]P1$:[141]160
3750 P2$[178][196](P2):P$[178]"WVCGVIRGB ZGGIRYFGV = "[170]P2$:[141]160
3760 P3$[178][196](P3):P$[178]"OFXP ZGGIRYFGV      = "[170]P3$:[141]160
3770 [153]:S1$[178]"HIT RETURNWAIT TO CONTINUE":[153]S1$;:SAYS1$:[133]T$:[153]
3780 [137]4000
3790 P$[178]"LOADTZNV LEVI":[141]160:[137]4260
3800 [143]
3810 [143] UPDATE PLAYER STATUS.  CONDUCT          COMBAT IF NECESSARY
3820 [143]
3830 [139]F2[179][177]0[167]F2[178]F2[171]1:[139]F2[179][178]0[167]4170
3840 [139]F4[179][177]0[167]F4[178]F4[171]1:[139]F4[179][178]0[167]4170
3850 [139]P1[179]P0[167]P5[178]P5[170].5:[139]P5[178]1[167]P5[178]0:P1[178]P1[170]1
3860 [139]D3[178]0[175]D7[178]0[175]E0[178]0[175]E3[178]0[175]E7[178]0[167]3960
3870 T[178][181]([187](1)[172]100)
3880 [139]D3[178]1[167]P$[178]"GSV NLMHGVI ZGGZXPH... ":[141]160
3890 [139]D3[179][177]1[167]P$[178]"GSV HVXFIRGB ZMWILRW HSLLGH... ":[141]160
3900 [139]T[177]80[171](P2[170]P3)[167]P$[178]"RG NRHHVH":[141]160:[137]3960
3910 ZZ[178][181](((5[172][187](1))[170]1)[170]((5[172][187](1))[170]1)[170]((5[172][187](1))[170]1)[170]((5[172][187](1))[170]1)[170]15[171]P3)
3920 P1[178]P1[171]ZZ
3930 [139]D3[179][177]1[167]P1[178]P1[170]5
3940 [139]P1[179]0[167]4250
3950 [151]SC,2:[129]BB[178]1[164]200:[130]:[151]SC,0:P$[178]"BLF ZIV SRG!":[141]160
3960 [139]V1[178]0[176]V1[177]4[176]D3[170]D7[170]E0[170]E3[170]E7[177]0[167][129]ZZ[178]1[164]3500:[130]
3970 [143]
3980 [143] INITIALIZE FOR NEW TURN. GO TO          APPROPRIATE ROOM DESCRIPTION
3990 [143]
4000 V$[178]"":V1$[178]"":V2$[178]"":V1[178]0:V2[178]0:A$[178]"":B$[178]"":C$[178]"":D$[178]"":E$[178]"":N[178]0:S[178]0:W[178]0
4010 E[178]0
4020 [139]A[177]0[175]A[179]16[137]4060
4030 [139]A[177]15[175]A[179]29[167]B[178]A[171]15:[137]4080
4040 [139]A[177]28[175]A[179]42[167]B[178]A[171]28:[137]4100
4050 [139]A[177]41[167]B[178]A[171]41:[137]4120
4060 [145]A[141]300,310,320,330,340,350,370,390,400,410,430,440,450,470,480
4070 [137]940
4080 [145]B[141]500,510,520,530,540,570,580,590,610,630,640,650,670
4090 [137]940
4100 [145]B[141]680,690,700,720,730,740,760,770,790,800,820,830,850
4110 [137]940
4120 [145]B[141]860,870,880,890,4290
4130 [137]940
4140 [143]
4150 [143] EVALUATE END-GAME CONDITIONS &          DISPLAY APPROPRIATE MESSAGES
4160 [143]
4170 [153]"LOAD":[139]A[178]46[167]F4[178][171]1:[137]4290
4180 P$[178]"GSV KSLGLM YLNY VCKOLWVH...GSV VMGRIV   XLNKOVC RH WVHGILBVW":[141]160
4190 [139]A[178]38[167]P$[178]"GSV XLNKFGVI UOZHSVH YIRTSGOB, VNRGGRMT HKZIPH":[137]4210
4200 [137]4220
4210 P$[178]P$[170]" RM ZOO WRIVXGRLMH":[141]160
4220 P$[178]"GSV XLNKOVC HFWWVMOB VCKOLWVH RMGL NRO- ORLMH LU KRVXVH":[141]160
4230 P$[178]"BLF ZIV PROOVW YB GSV UZOORMT WVYIRH    ZILFMW BLF":[141]160:[153]:
4240 [153]:[137]4260
4250 P$[178]"BLF ZIV WVZW!":[141]160
4260 [143]
4270 [129]X[178]1[164]2000:[130]
4280 [137]6370
4290 P$[178]"GSV HKZXV HSRK HFWWVMOB ORUGH RMGL LIYRGZILFMW GSV KOZMVG":[141]160
4300 [139]((F2[178]0)[176](F2[179][177]0[175]I(12)[179][177]41))[175]F4[178]0[167]P$[178]"BLF WRWM'G ":[137]4320
4310 [137]4340
4320 P$[178]P$[170]"WVHGILB GSV YZHV.  BLF SZEV  UZROVW BLFI NRHHRLM.":[141]160:[153]
4330 [137]4260
4340 P$[178]"UILN Z WRHGZMXV, BLF XZM HVV GSV ZORVM  YZHV VCKOLWV":[141]160
4350 [139]I(16)[179][177]0[167]P$[178]"BLF WRWM'G IVX LEVI GSV HVXIVG KOZMH":[137]4370
4360 [137]4380
4370 P$[178]P$[170]"     MVVWVW YB HGZI XLNNZMW":[141]160:[153]:[137]4260
4380 P$[178]"NRHHRLM RH Z HFXXVHH!":[141]160:[137]4260
4390 [143]
4400 [143] PRINT TITLE PAGE, INITIALIZE            WORKSPACE, READ ITEMS & VERBS
4410 [143]
4420 [153]"LOAD":[140]
4430 [153]"     DEF   (null)LENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENRIGHT$"
4440 [153]"        PEEKSYS OPERATION: SABOTAGEDEF PEEK"
4450 [153]"        MID$LENLENLENRIGHT$             (null)LENLENLEN(null)"
4460 [153]"            PEEKLIST BY RAY SATODEF PEEK    "
4470 [153]"           (null)(null)             MID$RIGHT$   "
4480 [153]"           PEEKOPEN C-64  VERSIONDEF PEEK   "
4490 [153]"           MID$RIGHT$             (null)(null)   ":
4500 [153]"            PEEKPRINT BY TIM BUJADEF PEEK    "
4510 [153]"         (null)TANTAN(null)             MID$TANTANRIGHT$   "
4520 [153]"         PEEKOPEN WAR GAMES VERSIONDEF PEEK   "
4530 [153]"         MID$TANRIGHT$               (null)TAN(null)   ":
4540 [153]"           PEEKPRINT BY  R.C.DAVISDEF PEEK    "
4550 [153]"           MID$LENLENLENLENLENLENLENLENLENLENLENLENLENTANTAN(null)LIST    "
4560 SAY"WAR GAMES GORILLA WARFARE."
4570 [129]T[178]1[164]16:[135]I$(T),I(T):[130]
4580 [129]T[178]1[164]17:[135]V$(T):[130]
4590 [129]T[178]1[164]40:P0[178]P0[170][181](2[172][187](1))[170]1:[130]T
4600 [143]
4610 [143] ESTABLISH PLAYER-ATTRIBUTE              POINTS.  JUMP TO FIRST ROOM.
4620 [143]
4630 P1[178]P0
4640 [129]T[178]1[164]10:P2[178]P2[170][181](2[172][187](1))[170]1:[130]T
4650 [129]T[178]1[164]10:P3[178]P3[170][181](2[172][187](1))[170]1:[130]T
4660 [129]T[178]1[164]50:D4[178]D4[170][181](2[172][187](1))[170]1
4670 D8[178]D8[170][181](2[172][187](1))[170]1:E1[178]E1[170][181]([154][172][187](1))[170]1
4680 E4[178]E4[170][181](2[172][187](1))[170]1:E8[178]E8[170][181](2[172][187](1))[170]1:[130]T
4690 A[178]1:P4[178]1
4700 [141]300:[137]940
4710 [143]
4720 [143] ITEM AND VERB DATA
4730 [143]
4740 [131]KOZHGRX VCKOLHREV,0,XILDYZI,7,XZOVMWZI,8,HNZOO YOZXP WVERXV,9
4750 [131]OZHVI KRHGLO,-12,HVXFIRGB PVB,-16,VOVXGILMRX XLMGILO YZGLM,-17
4760 [131]YZGGVIRVH,18,XLNKFGVI WVHGIFXG KILTIZN,21,HROEVI KROD,23
4770 [131]KLIGZYOV IZWRL,25,OZITV KSLGLM YLNY,28
4780 [131]TZOZXGRX XSZIG,32,OZFMXS HBHGVN XZHHVGGV,-32,MRGILTOBXVIRM,39
4790 [131]HVXIVG KOZMH,-26
4800 [131]MLIGS,HLFGS,DVHG,VZHG,LKVM,TVG,WILK,HSLLG,RMHVIG,VZG,KFHS,IVZW
4810 [131]RMEVMGLIB,GSILD,FHV,HGZGFH,JFRG
4820 UN[178]([194](0)[178]76):SC[178]53281[170]16402[172]UN:[151]SC,0:[139]UN[178]0[167][151]SC[171]1,0
4830 [153][199](142)"LOAD         PRINT  (null)LENLENLENLENLENLENLENLENLENLENLENLENLENLENRIGHT$
4840 PRINT"            [194][155] INSTRUCTIONS[153] [194]         "
4850 PRINT"            [202][195][195][195][195][201]    [213][195][195][195][195][203]     "
4860 PRINT"                 [194][155] TO [153][194]          "
4870 PRINT"        [213][195][195][195][195][195][195][195][195][203]    [202][195][195][195][195][195][195][195][195][201]   "
4880 PRINT"        [194][129] OPERATION:  SABOTAGE[153] [194]   "
4890 PRINT"        [202][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][203][155]   "
4900 SAY"OPPERATION SABA TOJ.INSTRUCTIONS":FORT=1TO1000:NEXTT
4910 PRINT"[147]"CHR$(14)"  [201]T IS THE YEAR 2101 AND WAR HAS BROKEN";
4920 PRINT"OUT BETWEEN [197]ARTH AND THE DISTANT PLANET[218]EKLOKE. [212]HIS ALIEN POWER ";
4930 PRINT"HAS ESTABLISH-ED A LARGE MILITARY COMPLEX ON [205]ARS THATWILL SOON BE A ";
4940 PRINT"GREAT DANGER TO [197]ARTH.   [200]IDDEN IN THE MASSIVE INSTALLATION ARE  SEV";
4950 PRINT"ERAL SECRET DOCUMENTS CONTAINING +HE PLANS FOR AN INCREDIBLE DEFENSE ";
4960 PRINT"SHIELD--STRONG ENOUGH TO STOP AN ENTIRE FLEET OFSPACECRAFT."
4970 SAY"IT IS THE YEAR TWENTY ONE O ONE"
4980 SAY"AND WAR HAS BROKEN OUT BETWEEN EARTH AND THE DISTANT PLANET ZEKLOKE."
4990 SAY"THIS ALIEN POWER HAS ESTABLISHED A LARGE MILITARY COMPLEX ON MARS"
5000 SAY"THAT WILL SOON BE A GREAT DANGER TO EARTH"
5010 SAY"HIDDEN IN THE MASSIVE INSTALLATION ARE SEVERAL SE CRET DOCUMENTS"
5020 SAY"CONTAINING THE PLANS FOR AN INCREDIBLE DEFENSE SHIELD."
5030 SAY"STRONG ENOUGH TO STOP AN ENTIRE FLEET OF SPACE CRAFT."
5040 PRINT"    [208]RESS SPACE BAR[146] TO CONTINUE..."
5050 SAY"HIT SPACE TO CONTINUE."
5060 GETA$:IFA$<>""THEN5060
5070 GETA$:IFA$<>" "THEN5070
5080 PRINT"[145]  [217]OU ARE A SPECIAL AGENT AND HAVE JUST SUCCEEDED IN SNEAKING INTO ";
5090 PRINT"THE ALIEN    COMPLEX. [217]OUR MISSION IS TO DESTROY THISTHREAT TO MAN";
5100 PRINT"KIND AND RETURN WITH PLANS FOR THE POWERFUL DEFENSE SHIELD. [212]HE "
5110 PRINT"OUTCOME OF THIS MISSION WILL DECIDE THE FATE OF MANKIND."
5120 SAY"YOU ARE A SPECIAL AYGENT"
5130 SAY"AND HAVE JUST SUCCEEDED IN SNEAKING INTO THE ALIEN COMPLEX."
5140 SAY"YOUR MISSION IS TO DESTROY THIS THRET TO MAN KIND"
5150 SAY"AND RETURN WITH PLANS FOR THE POWERFUL DEFENSE SHIELD."
5160 SAY"THE OUTCOME OF THIS MISSION WILL DECIDE THE FATE OF MANKIND."
5170 PRINT"   [208]RESS SPACE BAR[146] FOR A FEW NOTES ON"
5180 SAY"PRESS SPACE FOR A FEW NOTES ON OHPERATION SABA TOJ."
5190 PRINT"[153]          [207][208][197][210][193][212][201][207][206]:[160][160][211][193][194][207][212][193][199][197]"
5200 GETA$:IFA$<>""THEN5200
5210 GETA$:IFA$<>" "THEN5210
5220 PRINT"[147]          [207][208][197][210][193][212][201][207][206]:[160][160][211][193][194][207][212][193][199][197][155]"
5230 PRINT"[212]HE COMPUTER WILL ALWAYS GIVE YOU A   BRIEF DESCRIPTION OF WHERE ";
5240 PRINT"YOU ARE, WHATOBJECTS YOU CAN SEE, AND WHAT EXITS ARE VISIBLE.  [217]OU ";
5250 PRINT"MOVE AND ACT BY TYPING IN SIMPLE COMMANDS, GENERALLY CONSISTING OF";
5260 PRINT"A VERB AND A NOUN. [201]F THE COMPUTER TELLSYOU THAT THERE IS A LASER ";
5270 PRINT"PISTOL IN THE ROOM, FOR EXAMPLE, YOU MIGHT WANT TO    TYPE IN THE CO";
5280 PRINT"MMAND [199][197][212][160][208][201][211][212][207][204].  [204]ATER, YOU MIGHT BE ABLE TO USE IT TO [211][200][207][207][212]"
5290 PRINT"[205][207][206][211][212][197][210][160]OR FOR SOME OTHER PURPOSE.  [201]F  YOU NO LONGER WANT TO CARRY ";
5300 PRINT"IT, YOU CAN [196][210][207][208][160][208][201][211][212][207][204] WHENEVER YOU PLEASE.  [193]N OB-JECT WILL REMAIN";
5310 PRINT" IN THE ROOM WHERE IT   WAS DROPPED UNTIL IT IS PICKED UP AGAIN,";
5320 PRINT" OR UNTIL THE GAME ENDS."
5330 SAY"THE COMPUTER WILL ALWAYS GIVE YOU A BRIEF DESCRIPTION"
5340 SAY"OF WHERE YOU ARE.WHAT OBJECTS YOU CAN SEE.AND WHAT EXITS ARE VISIBLE."
5350 SAY"YOU MOVE AND AACT BY TYPING IN SIMPLE COMMANDS"
5360 SAY"GENNERALLY CONSISTING OF A VERRB AND A NOUN."
5370 SAY"IF THE COMPUTER TELLS YOU THAT THERE IS A LASER PISTULL IN THE ROOM"
5380 SAY"FOR EXAMPLE. YOU MIGHT WANT TO TYPE IN THE COMMAND.GET PISTULL."
5390 SAY"LATER. YOU MIGHT BE ABLE TO USE IT TO SHOOT MONG STER"
5400 SAY"OR FOR SOME OTHER PURPUS.  IF YOU NO LONGER WANT TO CARRY I[169]"
5410 SAY"YOU CAN DROP PISTULL WHENEVER YOU PLEASE"
5420 SAY"AN OBJECT WILL REMAIN IN THE ROOM WHERE IT WAS DRAUPPED"
5430 SAY"UNTIL IT IS PICKED UP AGAIN": SAY"OR UNTIL THE GAME ENDS"
5440 PRINT"   [208]RESS SPACE BAR[146] FOR MORE NOTES ON"
5450 SAY"PRESS SPACE FOR MORE NOTES ON OHPERATION SABA TOJ."
5460 PRINT"[153]          [207][208][197][210][193][212][201][207][206]:[160][160][211][193][194][207][212][193][199][197]"
5470 GETA$:IFA$<>""THEN5470
5480 GETA$:IFA$<>" "THEN5480
5490 PRINT"[147][155]             [205]ORE NOTES ON  [153]"
5500 PRINT"          [207][208][197][210][193][212][201][207][206]:[160][160][211][193][194][207][212][193][199][197][155]"
5510 PRINT"[211]INCE THE COMPUTER LOOKS ONLY AT THE  FIRST THREE LETTERS OF THE ";
5520 PRINT"VERB AND THE LAST THREE LETTERS OF THE NOUN, YOU MAY USE ABBREVIA";
5530 PRINT"TIONS SUCH AS [211][200][207][212][197][210] (FOR   [211][200][207][207][212][160][205][207][206][211][212][197][210]) IF YOU DESIRE.  [205]OVEMENT ";
5540 PRINT"IS ACCOMPLISHED BY TYPING JUST A SINGLE LETTER RATHER THAN A TWO";
5550 PRINT"-WORD COMMAND:  [206], [211], [197], OR [215] FOR [206][207][210][212][200], [211][207][213][212][200], [197][193][211][212], OR[215][197][211][212].  [212]YP";
5560 PRINT"ING THE SINGLE WORD [201][206][214][197][206][212][207][210][217] (OR [201][206][214]) WILL DISPLAY A LIST OF WHAT ";
5570 PRINT"YOUARE CURRENTLY CARRYING.  [212]YPING [211][212][193][212][213][211] (OR [211][212][193]) WILL GIVE YOU A ";
5580 PRINT"READOUT OF YOURCURRENT PHYSICAL CONDITION."
5590 SAY"SINCE THE COMPUTER LOOKS ONLY AT THE FIRST THREE LETTERS OF THE VERRB"
5600 SAY"AND THE LAST THREE LETTERS OF THE NOUN, YOU MAY USE ABRIEVIATIONS"
5610 SAY"SUCH AS SHOOTER.FOR SHOOT MONG STER,IF YOU DESIRE."
5620 SAY"MOVEMENT IS ACCOMPLISHED BY TYPING JUST A SINGLE LETTER"
5630 SAY"RATHER THAN A TWOWORD COMMAND.N,S,E,OR W FOR NORTH,SOUTH,EAST,OR WEST."
5640 SAY"TYPING THE SINGLE WORD INVENTORY.OR I N V."
5650 SAY"WILL DISPLAY A LIST OF WHAT YOU ARE CURRENTLY CARRYING."
5660 SAY"TYPING STATUSS.OR S T A."
5670 SAY"WILL GIVE YOU A REEDOUT OF YOUR CURRENT PHYSICAL CONDITION."
5680 PRINT" [208]RESS SPACE BAR[146] FOR EVEN MORE NOTES ON"
5690 SAY"PRESS SPACE FOR EVEN MORE NOTES ON OHPERATION SABA TOJ."
5700 PRINT"[153]          [207][208][197][210][193][212][201][207][206]:[160][160][211][193][194][207][212][193][199][197]"
5710 GETA$:IFA$<>""THEN5710
5720 GETA$:IFA$<>" "THEN5720
5730 PRINT"[147][155]           [197]VEN MORE NOTES ON  [153]"
5740 PRINT"          [207][208][197][210][193][212][201][207][206]:[160][160][211][193][194][207][212][193][199][197][155]"
5750 PRINT"[208]ART OF THE CHALLENGE OF ANY FANTASY/ ADVENTURE GAME IS TO FIGURE";
5760 PRINT" OUT WHAT YOUARE ABLE TO DO IN A PARTICULAR SITUA-   TION.  [212]HERE";
5770 PRINT"FORE, YOU WILL NOT FIND A   LIST OF ALL THE VERHS THAT THE COMPUTER"
5780 PRINT"CAN UNDERSTAND, OR OF ALL THE OBJECTS   THAT YOU MAY DISCOVER.  [217]OU ";
5790 PRINT"MIGHT FIND  YOURSELF FRUSTRATED BY WHAT SEEM TO BE  DEAD-ENDS, AND ";
5800 PRINT"END UP GETTING KILLED IN THE PROCESS.  [212]HIS IS ALL PART OF THE   ";
5810 PRINT"ADVENTURE, AND A TEST OF YOUR INGENUITY AND PERSEVERANCE."
5820 SAY"PART OF THE CHALENGE OF ANY FANTASSY ADVENTURE GAME"
5830 SAY"IS TO FIGURE OUT WHAT YOU ARE ABLE TO DO IN A PA TICULER SITUATION."
5840 SAY"THEREFORE"
5850 SAY"YOUWILLNOTFIND A LIST OF ALL THE VERBS THAT THE COMPUTER CAN UNDERSTAND"
5860 SAY"OR OF ALL THE OBJECTS THAT YOU MAY DISCOVER."
5870 SAY"YOU MIGHT FIND YOURSELF FRUSTRATED BY WHAT SEEM TO BE DEAD ENDS"
5880 SAY"AND END UP GETTING KILLED IN THE PROCESS."
5890 SAY"THIS IS ALL PART OF THE ADVENTURE"
5900 SAY"AND A TEST OF YOUR INGENUITTY AND PERSA VERANCE."
5910 PRINT" [208]RESS SPACE BAR[146] FOR PROGRAM NOTES, OR"
5920 PRINT"        F1 [146]      TO START THE GAME."
5930 SAY"PRESS SPACE FOR PROGRAM NOTES, OR F 1 TO START GAME."
5940 GETA$:IFA$<>""THEN5900
5950 GETA$:IFA$=""THEN5950
5960 IFA$=" "THEN5990
5970 IFA$="[133]"THENRETURN
5980 GOTO5950
5990 PRINT"[147][155]            [208]ROGRAM NOTES ON  [153]"
6000 PRINT"          [207][208][197][210][193][212][201][207][206]:[160][160][211][193][194][207][212][193][199][197][155]"
6010 PRINT"[212]HE MOST OBVIOUS FEATURE OF THE PRO-  GRAM LISTING IS THAT MOST ";
6020 PRINT"OF IT LOOKS   LIKE A CRYPTOGRAM.  [212]HE [194][193][211][201][195] KEYWORDS  ARE ALL IN ";
6030 PRINT"THEIR USUAL FORM, BUT THE    STRING ASSIGNMENT STATEMENTS AND [196][193][212][193] ";
6040 PRINT"  LINES CONTAIN UNCOMPREHENSIBLE GARBAGE. [212]HIS IS BECAUSE ALL OF ";
6050 PRINT"THE ROOM DESCRIP-TIONS, OBJECT NAMES, MONSTERS, AND VERBSHAVE BEEN ";
6060 PRINT"ENCODED.  [212]HIS HAS BEEN DONE  TO PRESERVE THE VALUE OF THE GAME.  ";
6070 PRINT"[193]NY-ONE WHO HAS A LISTING OF AN ADVENTURE   GAME IS BOUND TO BE DIS";
6080 PRINT"APPOINTED IN THE GAME'S PLAYABILITY, SINCE THEY HAVE AC- CESS TO SO ";
6090 PRINT"MUCH INFORMATION ABOUT THE   PLOT.         [199]OOD LUCK!"
6100 SAY"THE MOST OBVIOUS FEATURE OF THE PROGRAM LISTING"
6110 SAY"IS THAT MOST OF IT LOOKS LIKE A CRYPTOE GRAM."
6120 SAY"THE BASIC KEY WORDS ARE ALL IN THAER USUAL FORM"
6130 SAY"BUT THE STRING ASSIGNMENT STAETEMENTS AND DATA LINES"
6140 SAY"CONTAIN UNCOMPREHENSIBLE GARBAGE."
6150 SAY"THIS IS BECAUSE ALL OF THE ROOM DESCRIPTIONS,OBJECT NAMES,MONG STERS"
6160 SAY"AND VERBS,HAVE BEEN ENCODED."
6170 SAY"THIS HAS BEEN DONE TO PRESERVE THE VALUU OF THE GAME."
6180 SAY"ANY ONE WHO HAS A LISTING OF AN ADVENTURE GAME"
6190 SAY"IS BOUND TO BE DISSAPPOINTED IN THE GAMES PLAYABILITY"
6200 SAY"SINCE THEY HAVE ACCESS TO SO MUCH INFORMATION ABOUT THE PLOT."
6210 SAY"GOOD LUCK!"
6220 PRINT" [208]RESS SPACE BAR[146] TO START THE GAME."
6230 SAY"HIT SPACE TO START THE GAME."
6240 GETA$:IFA$<>""THEN6240
6250 GETA$:IFA$<>" "THEN6250
6260 RETURN
6270 REM
6280 POKE792,207:POKE793,2:POKE720,4:POKE739,13:POKE743,0
6290 IFPEEK(49153)=187THENGOTO6330
6300 PRINT"[147]":POKE53280,6:POKE53281,6
6310 PRINT"          LOADING SUB PROGRAMS  [146]"
6320 LOAD"SAM",8,1:END
6330 SYS38144:POKE52,125:POKE54,125:POKE56,125:POKE53280,0:POKE29,0
6340 ]RE:]LI 1:]SP 68:]PI 68:]KN 150,150
6350 RETURN
6360 REM
6370 POKE53281,6:POKE53280,6:POKE743,169
6380 POKE720,8:POKE739,52:POKE744,50:POKE749,56:POKE754,48:POKE758,169
6390 PRINT"[147]  DO YOU WANT TO PLAY AGAIN ?":SAY"DO YOU WANT TO PLAY AGAIN."
6400 GETA$:IFA$=""THEN6400
6410 IFA$="N"THEN6430
6420 RUN
6430 PRINT"[147]  DO YOU WANT TO RETURN TO WAR GAMES ?":X$=""
6440 SAY"DO YOU WANT TO RETURN TO WAR GAMES."
6450 GETX$:IFX$=""THEN6450
6460 IFX$="N"THENPRINT"[147]  BYE BYE":SAY"BYE BYE.":END
6470 PRINT"[147]LOAD";CHR$(34);"WAR MENU";CHR$(34);",8,1"
6480 POKE631,19:POKE632,13:POKE633,82:POKE634,117:POKE635,13:POKE198,5